home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / S9303.ZIP;1 / KOORHAN.ZIP / CURR.PRG next >
Encoding:
Text File  |  1993-01-05  |  1.9 KB  |  69 lines
  1. *-- FUNCTION CurrSPR
  2. *
  3. * This routine finds the current READ and returns
  4. *   the .SPR file to run.  If there is no READ window
  5. *   it returns a blank.
  6. *
  7. FUNCTION CurrSPR
  8. PRIVATE m.lcProgram, m.lcWindow, m.lcExtWind
  9. m.lcProgram = ""
  10. m.lcExtWind = ""
  11. m.lcWindow = UPPER(WCHILD("",0))
  12. DO WHILE !EMPTY(m.lcWindow)
  13.   IF UPPER(LEFT(m.lcWindow,2)) $ "WR/WT"
  14.     m.lcProgram = TRIM(SUBSTR(m.lcWindow,3,8))
  15.     IF RIGHT(m.lcProgram,1) $ "1,2,3,4,5,6,7,8,9,0"
  16.         lcProgram = LEFT(lcProgram,LEN(lcProgram)-1)
  17.     ENDIF
  18.     m.lcProgram = m.lcProgram+".SPR"
  19.   ENDIF
  20.   IF UPPER(LEFT(m.lcWindow,2)) = "WX"
  21.     m.lcExtWind = m.lcWindow
  22.     m.lcWindow = UPPER(WCHILD(m.lcExtWind,0))
  23.     DO WHILE !EMPTY(m.lcWindow)
  24.       IF UPPER(LEFT(m.lcWindow,2)) $ "WR/WT"
  25.         m.lcProgram = TRIM(SUBSTR(m.lcWindow,3,8))
  26.         IF RIGHT(m.lcProgram,1) $ "1,2,3,4,5,6,7,8,9,0"
  27.           lcProgram = LEFT(lcProgram,LEN(lcProgram)-1)
  28.         ENDIF
  29.         m.lcProgram = m.lcProgram+".SPR"
  30.       ENDIF
  31.       m.lcWindow = WCHILD(lcExtWind,1)
  32.     ENDDO
  33.   ENDIF
  34.   m.lcWindow = WCHILD("",1)
  35. ENDDO
  36. RETURN m.lcProgram
  37.  
  38.  
  39. *-- FUNCTION CurrWR
  40. *
  41. * This routine finds the current READ and returns
  42. *   the window name.  If there is no READ window
  43. *   it returns a blank.
  44. *
  45. FUNCTION CurrWR
  46. PRIVATE m.lcWindow, m.lcReadWind, m.lcExtWind
  47. m.lcWindow = UPPER(WCHILD("",0))
  48. DO WHILE !EMPTY(m.lcWindow)
  49.   IF UPPER(LEFT(m.lcWindow,2)) = "WR"
  50.     m.lcReadWind = m.lcWindow
  51. *    IF RIGHT(m.lcReadWind,1) $ "1,2,3,4,5,6,7,8,9,0"
  52. *      m.lcReadWind = LEFT(m.lcReadWind,LEN(m.lcReadWind)-1)
  53. *    ENDIF
  54.   ENDIF
  55.   IF UPPER(LEFT(m.lcWindow,2)) = "WX"
  56.     m.lcExtWind = m.lcWindow
  57.     m.lcWindow = UPPER(WCHILD(m.lcExtWind,0))
  58.     DO WHILE !EMPTY(m.lcWindow)
  59.       IF UPPER(LEFT(m.lcWindow,2)) = "WR"
  60.         m.lcReadWind = m.lcWindow
  61.       ENDIF
  62.       m.lcWindow = WCHILD(lcExtWind,1)
  63.     ENDDO
  64.   ENDIF
  65.   m.lcWindow = WCHILD("",1)
  66. ENDDO
  67. RETURN m.lcReadWind
  68.  
  69.